home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1995 October
/
EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso
/
Aminet
/
util
/
misc
/
MIOHandler.lha
/
mio-handler-1.0
/
Install
< prev
next >
Wrap
Text File
|
1995-05-12
|
2KB
|
78 lines
;
; MIO-Device
;
; © 1995 Peter Westerström, All Rights Reserved.
;
(set #handler (cat "MIO-Handler"))
(set mode
(askchoice
(prompt @app-name)
(help @askchoice-help)
(choices "Install" "Remove")
)
)
(if mode
(set pmode "Remove")
(set pmode "Install")
)
; get handlers dir
(set handlersdir
(askdir
(prompt "Where do the Handlers belong")
(help @askdir-help)
(default "L:")
)
)
; now do install or remove
(if mode
; Remove
(
; Show what we are doing
(working "Removing " @app-name)
; Remove the non-standard pieces
(delete (tackon handlersdir #handler))
(trap 4 (delete "devs:DOSDrivers/MIO" (infos)))
(trap 4 (delete "sys:Storage/DOSDrivers/MIO" (infos)))
; Don't want to use the confusing "Installation Complete" message
; when what we really did was remove things...
(message "The \"" @app-name "\" components "
"that you specified have been successfully removed")
(exit (quiet))
)
; Install
(
(working "Installing " @app-name)
; Install the handler
(copylib
(prompt (cat "Copying " @app-name))
(help @copylib-help)
(source #handler)
(dest handlersdir)
(confirm)
)
; Install the descriptors
(copyfiles
(prompt "Copying the DOSDriver description")
(help @copyfiles-help)
(source "MIO")
(dest "DEVS:DOSDrivers/")
(infos)
(confirm)
)
)
)
(set @default-dest handlersdir)